﻿<!--#include file="../../base.asp"-->
<%if checkIP("chatroom") then %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>聊天室</title>
<link href="../../skin/default/main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table>
<%
Response.Buffer=true '设置输出缓存，用于显示不同页面。
On error resume next '忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then '判断客户是以什么方式请求WEB页面
'------------------------
' 客户登陆界面
'------------------------
if request.Cookies("username")<>"" then
sql="select * from [user] where userNum='"&request.Cookies("username")&"' and [delete]=0"
set rs=GetRecordset(sql,0)
%>
<tr><td>
<form method="POST" action="chat.asp"><p>
用户名称：<input type="text" name="guest" size="20" style="background-color: rgb(192,192,192)" value="<%=rs("userName")%>"/> 
<input type="submit" value=" 进入聊天室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)"><input type="hidden" name="log" size="20" value="1"></p>
</form>
</td></tr>
<%
rs.close
set rs=nothing
CloseDataBase

end if
Response.End '结束程序的处理
Else
Response.clear '清空缓存中的内容
dim talk '定义变量，用于保存所有聊天用户的谈话内容
If Request.Form("guest")<>"" then '判断客户是是否在聊天界面中
Session("guest")=Request.Form("guest")
End If
'------------------------'
'客户聊天界面
'------------------------
%>
<tr><td>
<form method="POST" action="chat.asp" name=form1><p>请输入信息<input type="text" name="talk" size="50">  
<input type="submit" value=" 提交 " id="B1" name="B1">　<input type="reset" value=" 取消 " name="B2"></p>
</form>
</td></tr>
<tr><td>
<%
Application.lock '约束只允许当前用户编辑或增加Application对象的属性
'以下是将talk的值存入应用程序级变量show中，以便让所有的聊天用户读取
If trim(Request.Form("talk"))="" then '判断用户是否没有输入任何内容
    
Else
    talk=trim(Request.Form("talk")) '去掉字符后的空格
    Application("show")="<table border='0' cellpadding='0' cellspacing='0' width='100%'><tr><td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'><font color='#0000FF'>"&Session("guest")&"  "&time&"</font><br/>"&talk&"</td></tr><tr><td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show")
End If
Application.UnLock '解除对当前用户的约束
Response.Write Application("show") '输入应用程序级变量show中的谈话内容
End If
%>
</td></tr>
</table>
</body>
</html>
<%end if %>